home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
unity331.zip
/
REALCOB.AWK
< prev
next >
Wrap
Text File
|
1991-09-19
|
422b
|
16 lines
# Parses the output of Realia Cobol and returns records containing the
# following:
# Filename, Line, 0, ErrorMessage
# Since Column can not be assertained it is set to 0.
/ W | E | C / \
{
a = sprintf("%1s, %1s, 0,",ARGV[2],$1)
b = ""
for (i=2; i <= NF; i++) b = sprintf("%1s %1s",b,$i)
if (b !~ /has/ && b !~ /Level/ && b !~ /messages/) \
{
print a b
}
}